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Appendix Vt The Program 



The following pages are an Sngllsh printout of the 
program, using the Macro Assembly Program for the TX-0»^^ 
The first three pages contain the definitions for simple 
macro Instructions which are used throughout the regular 
program. 

The following table lists the areas of memory which 
are used for some Important data or work tables: 
Starting Location Contents 

g-60 Point descriptions 

g Line descriptions 

gf-114 Move table 

g+214 Line sums 

8^330 Machine ^s three In a row 

g+331 Opponent's three In a rows 

g^340 Machine's two In a rows 

pit Limit of lookahead 

ply Present depth of lookahead 

Plyfl Moves made and progress at each 

ply 

h Possible forcing moves for machine 

at each ply 
Several major routines and the function performed by each 
are listed in Table V» 
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Table Vs Major Routines In The Program 



Name or Starting 
Location 

bck 
ftid 



tstsum 



Function 



lineup 

lookup 

lookwln 

decision 

llstcheck 



listen 
gemnove 

tatstl 

reverse 

strati 

abc 



Compute Initial line sums 

Find unoccupied points on the line des- 
cribed by the address In the accumulator* 
Store the points In table from ppl plus !• 

Test the line sum In the accumulator 
under condition specified by spl. Go to 
k. If win, B If too many blocks, C If 
possible win. Store new forces starting 
In g plus 340. 

Update the line sums for the move stored 
In the accxiraulator* Value of update Is 
stored In spl plus one. Test each line 
with tstsum. 

Perform a lookahead update of one ply, 
testing for a win. If no more moves at 
this ply downdate the moves at the previous 

ply* 

store win which was found In lookahead. 
Downdate all moves made during lookahead. 

Check board for wins, blocks, or lookahead 
win In progress. 

Check for limit of lookahead and Immediate 
win If so. Check for block and force. 
If limit and no win or block and no force 
downdate last ply. Prepare list of forces 
for next ply If neither of above. 

Receive two octal digits from flexowrlter 
and decode as six binary digits. 

Generate next legal move from move table. 
If no more legal moves leave accvunulator 
negative. 

Test move according to values stored 
beginning at ncd. 

Reverse opponent's and machine *s pieces* 

Generate best move from possible moves. 

Assign ratings, modify ratings, and change 
strategy as a function of ratings. 



Perform lookahead for opponent. 



N, 



BASIC MACROS=no program 

cxy-opr 12 
ani^Qpr 305 
ana=*opr 325 
orl=opr 105 
ora=opr 125 
lcc='lac+com-opr 
^ mz=opr 51 
lal=cl?+cry-opr 



define 

modify A,B 

acid A 
add (B 
sto A 
terminate 

define 

bymodl A^B 
cla 
add A 
add B 
sto A 
terminate 

define 

mask A 
llr (A 
ana 
terminate 

define 

five P 

P 

P 

P 

P 

P 

terminate 

refine 

sixx P 
five P 
P 
termlncte 

define 

load A,B 
llr (A 
sir B 
terminate 

define 

write X 



-Ir to accum 

add -0 ^nd clear Ir -nd com 

lac follov/e^^" by cyl 
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add (X 

pnt 

pnt 

--S pna 

terminate 

define 

submit X 
llr (tra .+2 
tra X 
terrain- te 

cefine 

switch A,B 
llr A 
sir B 
terminate 

define 

perform 

sto .+2 

cla 



terminate 

define 

bkkeep 
cla 
^ add •-2 

add (1 
sto .-^ 
terminate 

define 

zero A 
amz 
trn A 
terminate 

define 

clad X 
cla 

3 do X 
terminate 

cefine 

: drs X,Y 
ecd (X 
sto Y 
terrain ':te 

define 

w-it 
Iro 
/^> Ice 

tm •-1 
terminate 



define 

acmk Z 
llr Z 
ana 
lac 
terminate 

define 

tadd A,B,C 
cle 
add A 
acd (B 
sto C 
terminate 

define 

aocc V 
acd (V 
sto .+2 


terminate 

define 

split X,Y 
trn X 
tra Y 
terminate 

define 

"branch X^Y 
cla 
add X 
tm Y 
tennlnate 

define 

trlf X,Y 

add (-X 
tm Y 
terminate 

define 

godo A,B,C 
llr (tr^ .+3 
sir A 
tr- B 
llr (C 
sir A 
termln^ te 

st-rt 1^000 



^^ 



l=inltial line sum. 



^lii. 
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401010 


00 


n 


01 


12 


02 


511213 


03 


21 


04 


00 


05 


04 


06 


2r 


07 


22 


10 


04 


11 


00 


12 


26 


13 


610623 


14 


15 


15 


16 


16 


700767 


17 


01 


20 


20 


21 


24 


22 


05 


23 


10 


24 


402461 


25 


512525 


26 


13 


27 


14 


30 


612643- 


31 


702726 


32 


17 


33 


05 


34 


23 


35 


27 


36 


01 


37 


02 


40 


24 


41 


20 


42 


06 


43 


14 ^ 


44 


70464 <> 


45 


614721 


46 


17 


47 


10 


50 


514466 


51 


404':22 


^2 


13 


53 


06 


54 


27 


rr- 


23 


'^6 


02 


57 


707214 


60 


15 


61 


16 


62 


617017 


63 


25 


64 


03 


65 


07 


66 


21 


67 
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^ 



26 
07 
03 
22 

516427 

11 

12 

406563 

0001 

0401 

1001 

1401 

2001 

2401 

3001 

3401 

4001 

4401 

5001 

5401 
6001 
6401 
7001 

7401 

0004 

0104 

0204 

0304 

2004 

2104 

2204 

2304 

4004 

4l04 

4204 

4304 

6oo4 

6104 

6204 

6304 

0020 

0120 

0220 

0320 

0420 

0520 

0620 

0720 

1020 

1120 

1220 

1320 

1420 

1520 

1620 

1720 

0005 

2005 
4005 
6005 



70 

171 
72 

73 
74 

75 
76 

77 



1 start of aiag 



0303 




2303 




1^303 




6303 




0024 




0124 




0224 




0324 
141if 






151^ 




1614 




171^ 




0021 




0421 




1021 




1421 




0317 




0717 




1317 




1717 




0025 




0^23 
1413 






1713 




600| 




bck,. load sir 


g+3^0, two 


load sir 


S+331,his 


load add 


g,ent 


load s+2l4,x+4 


cla 




ent, add g 




llr (77 




anl 




sixx shr 




adds add 


S+ll4,x 


lad 




sto x+1 




lad 




sto x+2 




lad 




sto x+3 




cle 




X, five 




com 




tm upl 




llr ent 




c^:ds tr- 


.+3, .+2 







tr tv;o 


sum = z 


tr? arr 




tr- err 




tr- his 




tra upl 




tra upl 




tra win 




tra err 




tra los 




tra upl 





zero 



JU- 



tra upl 
tra upl 
tra won 
err, cla 

write flex A 
write flex dd 
write flex err 
write flex or 

tre beg 
v;on, cl^ 

v^rlte flex I 
write flex v'O 
write flex n 

tr? beg 
Ids, clc 

write flex I 
write flex lo 
write flex st 

tra flm 
win, sir s+330 

tra upl 
his, sir s+331 

bkkeep 

tra upl 
two, sir s+3^0 

bkkeep 
upl, modify ent,l 

modify x-f4,l 

trif s+327*ent-i 

branch g+330,vcd 

load l,ppl 

subrut fnd 

cla 

write flex I 

write flex wi 

write flex n a 

write f lex t 

add ppl+1 

subrut bnp 

cl- 

write flex 



tr' fwm 
vcG, br-nch s+331>pft 

Cl-r pft+cff 

split .+2,pft 
clrd s+331 
load l,ppl 
subrut fnd 
clac ppl+1 
subrut wrm 
clad ppl+1 
load -3*ppl 
subrut upm 
tra srl+rsp 



-59- 



res, sir •-hlS 

switch ppl,.+4 

llr ppl+1 

clc 



add •-! 

adds 1^.-2 

lad 

trn .-6 



k, cla 

write flex 
write flex I 
write flex lie 
write flex g-1 
v;rite flex mo 
write flex ve 



1 illeg-l move 



fnd. 



vcb. 



vca 



vcc. 



Ive^ 
wncn. 



tr- sri+rsp 

sir ive 

load ppl+l,vca 

llr (77 

perform 

anl 

sixx shr 

adds add g+li4,.+3 

cla 



tm vcc 

clad • "*2 

trif add s+ll4, .4-3 

tra .+2 

com 

sto ppl+1 

modify pplj-i 

tm Ive 

modify vca^l 

lac 

add vcb 

tra vcb-2 



sir wro 

sto ppl 

cl- 

vv^rite f lex M 

v:rite flex y m 

write flex ove 

v;rite flex is 

v/rite flex 

ccd ppl 

sub rut bnp 

cl- 

write flex 



I fine point 



write my move 



wro^ 

upm^ sir •+14 

adds g+ll4^.+ll 

doad add 



up move 



-ow 



bnp. 



trn k 

clad ppl 



cla 







start beg 



2«L00KAHEAD. 


• 


define 






tstsum A,B,C 






sir R+nxt 






tm ,+3 


H 


nxt. 




-0 

add spl 
sto .+1 


tr^ ers 
trp R+nxt 
tr- R+nxt 
tre R+nxt 
tra ers 
tra ers 
tra R+wck 
tra R+nxt 
tra R+nxt 
tra ers 
tra ers 
tra ers 




dpc. 


tra R+new 






tra ers 


second. 




tra R+nxt 






tra R+nxt 






tra R+nxt 






tra ers 






tra ers 






tra ers 






tra C 






tra R+nxt 






tra R+zbh 






tra ers 






tra ers 






tra ers 




zbh. 


clad g+331 
switch ppl,s+331 
trn R+nxt 

load tra B,lnu+nxa 
tVF R+nxt 




new. 


switch ppl,g+3^0 

bkkeep 

tre R+nxt 




X ck. 


br-nch R+nxt+l,A 

com 

sto R+nxt+1 

tr^ R+nxt 

terminate 




define 






tstfix 






sir R+13 






cla 






sto tst+nxt+i 






com 






sto g+331 





+15 



-b2- 

adds sir g+3^0^tst+new+l 

add (add -sir 

llr (tm .+2 

tra wlp 

cla 



terminate 

define 

lineup 

sir R+nxa 

llr (3 

-nl 

sir R+nxr+l 

sto R+nxp+3 

shr 

shr 

sto R+nxe+2 

add (-de g 

llr (tre R+sec 
zzz, sto ppl 

adds 214- add, ^+7 

dead add 

ado spl+1 



tra tst 
sec, clad R-fnxa+3 

acmk 17 

add (add §4-40 

sub rut R-fzzz 

clad R-hnxa+2 

acmk 14 

add R+nxa-fl 

add (add g4-20 

subrut R+zzz 

load -2,R+nxa+2 

clad R+nxa+3 

dead add g-100 

sto R+nxa+1 

tm R-foog+2 

add (add g+60 

llr (tra R+nxa 

tra R+zzz 
oog, clac R+nxa4-l 

acmk 37 

acd {-Cc g4-60 

subrut R+zzz 

clf^c R+nxp+1 

five shr 

sto R+nxe+1 

modify R+nx8+2, 1 

tm R+Gog 

clad R+nx^+1 

add (cdc g+113 

subrut R+zzz 
nxa, 







terminate 



define 

congress 
add ppl+1 
slxx cyl 
add PP14-2 
terminate 

define 

expand 
llr (77 
anl 

slxx shr 
termln-^te 

cef Ine 

Inltlk 

losd h-l,ppl 

load -h-lCX)0, ppl+1 

subx*ut res 

load sir tst-fnxt,tst 

load add h,mhp 

sir ela+scb 

cla 

sto plt+l 

sto ply 

sto ply+1 

sto ply+2 

sto ply+3 

sto ply+^ 

sto ply-f5 

sto ply+6 

sto ply+7 

sto ply+10 

sto ply+11 

sto ply+12 

sto ply+i3 

sto ply+14 

sto ply+15 

sto ply+l6 

terminate 

define 

uppalr 

sir ppl+2 

lo^c tr?^ tst+c'pcjspl 

sto ppl+1 

lo' d -3.ppl 

subrut upm 

subrut tsf 

:dd ppl+1 

load -6, spl+1 

subrut Inu 

clsd ppl+2 

load -2,ppl 

submit upm 

add ppl+2 

load -5jspl+l 

load tra tst+dpc+15jspl 

subrut Inu 



termlnate 



define 






wipe up 




sir 


.+6 




sto 


• +4 




adds 


; --addj 


•+6 


cla 




















clc 













8CC 


.'k 




r ( 6 


(1 




tr- 


R+1 




termln-te 





define 

dnp^ Ir 

sir ppl+1 

sto ppl+2 

load tra tst-fnxt^tst+l 

load 5, spl+i 

subrut inu 

load 6,spl-fl 

clad ppl+1 

subrut Inu 

tadd ppl+i^slr g+ll4, .+5 

load 3>g+ll^ 

tadd ppl+2,slr S+114, .+5 

load 3>g+ll^ 

load tm tst-fnxt+2,tst-i-l 

terminate 

define 

lookup 
llr ply- 
lac 

adds Ijply 
adds sir ply^R+sco 
adds add-slr, .+3 
cla 

I add ply Info 

sto ppl 
m^sk 370000 
sir pol+l 
1-1 

five cyl 
FCd mhp 
sto R-fscb 
branch ppl^R+rev 

Cl' 

scb, I add new moves 

tm R+emv 

sir 

add ppl+1 

adds 400000^ppl+4 

lac 

expand j lo 6 in lr«hls hi 6 In acc^^lne 

ren, uppalr 

llr ppl-h4 
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SCO, j ply info is restored 

tra Ism 
rev, adds ^07777#ppl+4 

expand 

sir ppl 

mask 77 

add ppl 

tra R+ren | main flow is reentered 

emv, switch R+sco,. +3 

cbI 

I ply info set =s+0 

modify mhp,-40 

modify ply, -2 

trn R+nct 
zyr, dec R-hsco 

do^ c ^ od-slr-1 

trn R+oth 

?cmk 7777 

exp-nd 
bki, dnpair 

tra R 
ndt, trif -l,nwn 

tra R+zya 
oth, expand 

sir ppl 

mask 77 

add ppl 

tra R+bki 

terminate 

define 

tomnbk 

switch ela+sco,R+3 

llr ppl+4 



modify mhp, ^0 

adds -add,. +3 

clc 



tra ela 

terminate 

define 

lookwin 

lo^d -dd ply+l,R+4 

cl^ 

sto pft+cff 
dc ply+1 

trn .+3 

-mz 
Ikf, trn Ike 

expand 

sir ppl+1 

acmk 77 

8dGs sir s+11^, .+3 

load 3^S+11^ 

tadd ppl+l,slr g+ii4, .^S 

load 3^8+11^ 

modify R+4,1 

tra R-f2 



WW 



texTuinate 

define 

decision 

branch R+dff,bla 

add ply-i-1 

tm R+l+df f 

expand 

sir ppl+1 

mask 77 

sir ppl+2 

llr ppl+1 

tr? R+dc2 
cff, -0 

expand 

sir ppl+2 

mesk 77 

sir ppl+i 
dc2, lac 

sub rut wrm 

clad ppl+1 

load -3*ppl 

sub rut upm 

cla 

write flex S 

write flex ugg 

write flex est 

write flex yo 

write flex u m 

write flex ove 

write flex 

add ppl+2 

subrut bnp 

load -2,ppl 

subrut upm 

cla 

write flex 



modify R+3#l 
tra Ike 
teiroinate 

refine 

V7 infix 

Crl 

switch el-+sco,.+3 

llr ppl+4 



tr- Ikx'j 

termini te 

define 

chkwin 

switch ela+scoj ,+6 

clad ppl+^ 

mask 377777 



add ela+scb 



W( 



doad 1 

com 

tm Ikw 

load add g+3^0,R+pkr 

godo upl+12,lkc,cla 

branch g+331^R+pz 

branch g+332,.+3 

tra tnib+4 

tadd ela+scb,-add-l,.-h5 

clc 



tra Ism 
pz, morify mhp^^-O 

-r ds --^oc ,R-fpkq 

sto .+3 

cla 
pkr, eod g+3^0 



trn el a 

load 2,ppl 

subrut fnd 

compress 
pkq, 

modify R+pkr,l 

modify R+pkqj,l 

tra R+pkr--2 

terminate 

define 

lookcl 

load g-f2l4^ppl 

load -g-457^PPl-t-l 

llr (tra bck 

tra res 

terminate 

define 

equality AjB 
clad A 
Ipd 

add (-0 
tm B 
terminate 

define 

llstcheck 

llr {^r.6 g+3^0 

br-nch g+331,R+nbk 

sir R+fce+1 

lOcO i^ppl 

sir R-fsv;b-l 

subrut fnd 

switch ppl+l,ppl+3 

modify mhp,40 

adds -add,R+stl 
fde, branch g+340,R+nnw 

load 2^ppl 

submit fnd 

modify R-ffde+1^1 

llr ppl+3 



com 

add pit 
tm R+plr 
sir R+f qe+1 
modify mhp,40 
adds -add,R+st3 
fqe, branch g+3^0jR4'nlcn 
load 2,ppl 
subrut fnd 
compress 

Bt3s 

bkkeep 

moclfy Rffqe+1,1 

tra R+fqe 
nkn, switch R+stS^R-^st^ 

clad ela+scb 

•^■dd R+swt-1 

perform 
st4, 

tm R+swt 

modify R-fst4,l 

bymodi R+st4-l, R+swt -1 

tra R+st4-2 

1 
swtj clad •-! 

com 

sto •-^ 

trn R+nkn+2 

branch g+SSl^ela 

clad ppl+4 

mask 7777 

add R+st4 

sto .+4 

adds l,#H-5 

lac 



clc 



tra R+bke-^ 
plr, sir R+la+1 

load sir ll,R+llt-l 

1 80 

adds l,R+llt+l 

load llr ll-l,R+lm 

clc 

sto 11 

sto 11+1 

sto plt+1 
l^, branch s+340,R+le 

lose 2,ppl 

subrut fnc 

switch ppl+1,11 
lit, sv/ltch ppl+2,11+1 

modify R+llt-1,2 

modify R+llt+1,2 

moalfy R+la+1,1 

tra R+la 
le, clad R+llt-1 

sto R+12 

com 



*oo- 



equality ppl+2,R-feqa 
equality ppl-fl,R+eqb 

Ipd 

slxx cyl 
add ppl+2 
stl, 

bkkeep 

tra R+fde 
eqb, lac 

switch pplH-2,ppl+l 

sto ppl-h2 
eq^, cIp 

compress 

ecds 370000, op 1 +4 

svdtch R+fce+l,R+fqe+l 

sv;itch R+stl,R+st3' 

tre R+fqe 
nnv^, switch R+stl,R-l-st2 

cl?d ela+scb 

' dc RH-swb-1 

perform 
st2, 

trn R+swb 

expand 

sir ppl+2 

llr ppl+3 

sto ppl+l 

Ipd 

trlf O^R+eqc 

equality ppl-l-2j>R+eqd 

modify R+3t2>l 

bymodl R-fst2-l,R+swb-l 

tra R+st2-2 

1 
svrb, clad ,-1 

com 

sto .-4 

trn R4-nnw+2 

cla 

sto PP14-4 

add mhp 

perform 
bke, trn R+bko 

modify pp 1+4, 10000 

mocify R+bke-i,l 

tr^ R+bke-2 
bko, t^- d elp+sco,l, .+' 

llr pol+4 



tr^ el- 
eqc, l-.c 

switch ppl+2, pp 1+1 

sto ppl+2 
eqd, cla 

compress 

adds 370000, ppl+4 

switch R+swb-l,R+swt-l 

switch R+st2,R+st4- 

clad R+st2-l 

tra R+st4-4 
nbk, add ply 



t 

adds slr-llrHh2,R+lq-l 
llj switch mhp, •^-S 

cla 



tm R+lq 

expand 
12> 

ala 

adC R+12 

adds 1,R+12 

Ice 

trn R+12 

modify R+ 11+3^1 

tre R+11+2 
Iz?:, l^c 

-cds l,R+lm 

^c s c- d-llr+l,R+lm+2 
Im, llr 11-1 

br'^nch ll+i,R4'lq+4 

Ipc 

trlf 0,R-fleq 

modify R+lm-i-2,1 

tra R+lm4-l 


iq, switch R+12,R+lq+3 

ala 



llr R+lm 

lac 

add R+lq-1 

trn R-flzz 

modify ply,-l 

com 

add pit 

com 

ttn R+ldf 

tadd R+lm,add-llr+2,R-Mtl 

add (-1 
It 2, perform 

tm R+ldf 

ala 
Itl, 

trn R4-13Z 

Ipd 

trlf 0,R-flqe 

modify R+ltl,l 

Clr 

tr^ R+ltl 

13z# cl^c R+lt2-h2 

cdd (2 ^^ 

trs R+lt2-2 
leq, cl8' R+lm 

sir ppl4-^ 

llr U 

Ipd 

perform 

lal 

five cyl 

add ppl+4 

sto ppl+4 

tadd ela+sco,l, .+5 



llr ppl+4 



tra Ikw 
Iqe, clad R-!-lt2+2 

add (llr- add 

tra R+leq+2 
ldf> modify ela+sco,l 

clad ply 

tra ela-fzya-i 

terminate 

cef ine 

yesorno A,B 
vr?^lt 

8(cl (4000 
split .4-2, A 
:c:c (127777 
com 
trn R 
zero B 
tre R 
terminate 

define 

testch A,B,C 

lac 

add (a 

com 

tm .+7 

add (-0 

split ,+2, ,+5 

clad (C 

tra B 

terminate 

define 

listen 

cla 

sto ppl 

wait 

testch 7777^R+chu,0 

testch 253777>R4-chu,l 

testch 303777^ R+chu, 2 

testch 3^3777,R+chu,3 

testch 323777>R+chu,4 

testch 263777, R+chu,r 

testch 223777>R+chu,6 

testch 2^3777, R+chu, 7 

che, cl- 

v;rite flex 
tra R 

chu, acd ppl 

tm R+sce 

cyl 

cyl 

cyl 

adds trn, ppl 

tra R-f2 

see, ell 



^^^^ 



sto ppl 

yesorno R+che^R+wat 
wat, cal 

add ppl 
terminate 

define 

octpnt 

sir R-fax 

sto R+ax+1 

shr 

shr 

shr 

60 rr ^dr; R+'-Xf2 

pn^^ 

-cmk 7 

doa^ 8dc R+8X+2 
pna 

add R+ax+l 
ax, 


char rO 
char rl 
char r2 
char r3 
char r^ 
char r5 
char r6 
char r7 
terminate 

define 

maximum A 
clad A4-2 
com 

add A+3 
tm .+5 
switch A-i-3>A+2 
switch A4-1,A 
terminate 

define 

genmove 
sir R+'Wa 
cl- 

SpCj ^C' gH-li4 

-la 

ccd ."2 

a: ds l>,-3 

trlf acd g+2i^, .+^ 

clc 

tra R-f-ewa 

lac 

tm R+1 

clad R-fspc 

trlf add g+115i#+3 
awa, 

com 

tra •-2 

terminate 



( ^ 



define 



opl, 
cp2^ 
cml, 
cm2, 
cpm, 
ncd. 



tststl 


• 




sir R+ncd 






adds tra .+21,. +4 






clad spl4-7 













tra ers 


"-12, 


040 


tra R+ncd 


-11, 


031 


tra R+ncd 


-10, 


022 


tr? R+nco 


-l> 


013 
004 


tra ers 


-8, 


tr- ers 






tr- err: 


-6, 


130 


tr- R+ncd 


" r » 


121 


tra R+ncc 


-4, 


112 


tr^ ers 


-3, 


103 


tr- ers 






tra ers 






tra R+cp2 


0, 


220 


tra R+ncd 


1, 


211 


tra R+cm2 


2, 


202 



tra ers 

tra ers 

tra ers 

tra R+cpl 

tra R+cmi 

tra ers 

tra ers 

tra ers 

tra ers 

tra R+cpm 

add R+ncd+1 

tra R+ncd-1 

add R+ncd+2 

tra R+ncd-1 

add R+ncd+3 

tra R+ncd-1 

add R+ncd+4 

tra R+ncd-1 

add R+ncd+5 

sto spl+7 



10 

1 

6 

40 

2 

termln te 



6, 310 

7. 301 



12, 400 



310 
220 
301 
202 
400 



define 



si. 



reverse 

branch g+ll4,R+£l 

modify R+1,1 

trlf ado g+2l4,R 

load add s+ll4,R+l 

tra Ike 

llr (1 

Ipd 

ala 



I ^ 



add R+1 

adds sir-add, .+2 



tra R+3 

terminate 



start beg 



-75- 



>prograB« so«e deflnltionB, learner, and helper. 

define 

olioiew 

clo 

sto pf t+dff 

sto pit 

load add ply4l,pft+3 

load «+ll#»PPl , 

load -g-457#ppl+l 

subrut res 

load air g+ll4, .+3 

load 3,sfil4 

bldceep 

trif sir g+2l4,.-5 

Ola 

write flex 



write flex F 

write flex irs 

write flex t m 

write flex oyo 

write flex by 

write flex 

wait 

oyl 

eyl 

tna Rf yer 

el a 

write flex ach 

write flex ine 

write flex 



tra bclc 
yer, cla 

write flex lay 
write flex er 
write flex 



godo tsl-l^ari-frap^tra Ike 
zif , Glad bap^ax-fi 
llr (23 
Ipd 

ato apl-i4 
anl 
Ipd 
abr 
Ipd 
sero 8rl4«pt4>2 

llr (25 

Ipd 

sero scl4ept-i'2 

tm IkB 



terminate 



cefine 

llmfud A 

t-c 

cyr 

tm R+u2 

clac plt+1 

com 

tm R+\il 

modify plt^l 

add plt+2 

tm Ikxj 
ul, cla 

sto pit 

tra A 
u2s clad pit 

zero R+3 

tra R+ul 

terminate 

define 

strati 

switch tst,R+ept-i 

load add g+il4,gei>fspc 

load tra tsl,tst 

load 0,spl4"l 

sir 3pl+6 

load 6,wgt-f2 

load 40,wgt+3 

tac 

com 

tm R-fmen 

load 0,R+fm2-l 

load ado g4-2l4,Rri-fml 

cla 
fml, acd g+2l4 

trlf l,R+fmy 

trif l,R+fmz 

trs R+fmy 


fmz, bkkeep 
fmy, modify R+fml,l 

trlf add g+327,R+fml-l -^ 

clad fmz-1 „- — ^,--— — — / 

trlf 4,. +3 

clad (4 

cyl 

sto wgt-f2 

cyl 

cyl 

sto wgt+3 
men, submit gen 

tm R+ept 

sto spl+5 

Iro 

sir spl-i-7 

subrut Inu 
maximum spl+4 



-77- 



tra R+men 


ept, switch .-litst 
clpd spl-h4 
subrut wrm 
clad s pi 4-4 
load -"3#Ppl 
subrut upm 

rsp, tra qq 

write flex Y 
write flex our 
write flex mo 
write flex ve 
write flex Is 
listen 
subrut bnp 
load -2,ppl 
subrut upm 

lat, tra fix 

write flex 



tra Ike 
terminate 

beg^l^OO 

ers«err 

g«120 

ppl=g+400 

ll«ppl+10 

spl=^ppl+50 

plt=10076 

h»10122 

iOlOOl -10 

mph, pdc h 

ply. 

beg| wait 

tra f 

bnp| octpnt 

tst, tstsum lmw,tmb,pwn 

tsf, tstflx 

Inu, lineup 

bla, Inltlk 

ims, llstcheck 

el a, lookup 

pftj decision 

nwn, llmfud abc 

wip , wlpeup 

tmb^ tomnbk 

Ikw, lookwln 

Ikc^ lookcl 

pwn^ chkwln 

Imw, wlnflx 

gen, genmove 

srlj strati 

tsl, tststi 

rvg, reverse 

cln, clnnew 



(W 



nihp«mph 
1 smalms 
wgt-tsl-f-ncd+l 

abc, cle 

switch hpl,plt+2 
lopd tre ml,abc 
loac tm m2,lkw+lkf 
tra rvg 

T02, clc 

3 to pft+dff 

load opr,m3 
ml, godo pft^rvg^cla 

sir abc 

switch mpl,plt+2 

load trn Ike , Ikw+lkf 
m3# tra srl 

load tra srljm3 

load add ply+l,iB5+l 

load tra m5*gen 

tra srl 
m5j clad ply-fl 

acmk 7777 

zero m6 

e3q)and 

sir m4 

godo gen,srl+men-f3,tra m5 

modify m5+l#l 

clad mk 

tra s3?l+men+3 
m4, 
mpl, -10 
hpl, -10 
m6, load sir gen+8wa,gen 

tra srd+ept 

f, ClP 

write flex 



write flex Y 
write flex our 
write flex nu 
write flex mbe 
write flex r i 
write flex s 

fl, listen 

zero npn 

f2, sto ppp 

doad add f Is 
sto spl 
cla 

write flex 
write flex R 
write flex ati 
write flex ng 
add spl 

f3$ subrut bnp 
adds lOjWgt 



(y 



shr 

shr 

sto wgt+4 
shr 

sto wgt+1 
trif 5, -+3 
clad (-6 
sto rapl 
adds 3>lipl 
load cl8,cln+2if 
trlf -4,cln 
load tra lkc,cln-hzlf 
tra cln 
npn, cla 

write flex 

write flex R 

write flex atl 

write flex ng 

listen 

sto spl+4 

modify fls,l 

godo fl^f^cla 

clad fls 

subrut bnp 

adds fls,«+4 

clad spl+4 



cla 

write flex 

clad fls 

tra f 2 
ppp, 
fls, 
fls+100| 
flm, teed ppp,fls,.+il 

do^^d acd 

shr 



tr^ flf 


fix, bkkeep 

cla 

tra srl+lat-i-1 
fwm, clad flx-1 

add (-12 

com 

tm flf 

sto flx-1 

tadd pppjfls,.-fll 

doad add 

add flx-1 


flf, sto flx-1 

cla 

write flex 

write flex N 

write flex ew 

write flex rat 



KJ\J- 



write flex Ing 

add (char r 

pna 

?dd flx-1 

subrut bnp 

sto flx-1 

tra beg 
qq, tsc 

cyl 

tm .+3 

cla 

tra srl+rsp-hl 

load tra qql,upl+l6 

load tra vv2^wrm 

load tra vv7#abc 

tra Ike 
qql> clad (char rb 

pna 

add g^331 

tm qqc 

cla 

write flex L 
qqc, load sir pplj»upl+l6 

load sir wro,wrm 

load cla,pft 

sir abc 

olc 

sto pft+dff 

add (char r 

pna 

tra srl+rsp+1 
vv2, lac 

trlf tra vcd+21,vv4 

tra vv5 
vvjf lor 6 tvp vvb,wrm 

lose tre .+3i?bc 

tra rvg 

lo^d tr? qqc^pft 

tra rvg 
vv4, clad (char rw 

pna 

tra qqc 
w5> cla 

write flex L 

clc 

sto pft+dff 

tra vv7 
wb, clad (char rw 

pna 

tra vv4-3 



constants 
start add+beg 
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VERY DEFENSIVE L00KAHEAI>«seper8te tape 
define 

lopc Pcd A,R+rnkl+l 

loac sir B,R+mk3 
mkl, clad A 

acmk 7777 

zero R4-ink2 

llr (77 

anl 

slxx shr 
nik3, sir B 

ala 

add .-2 

doad 1 

modify R4-mk3j2 

modify R+mkl+1,1 

tra R-Hakl 
mk:2j ala 

add R+mk3 

sto .4-1 



terminate 



0=12000 
f3| llr (tra c 
c| load tra cl,f-l 

zero f3+2 

load tra srl-hept,f*l 

tra f 3+2 
OS, 

cl=cs+40 
cl| tpc 

cyl 

cyl 

tm .+7 

load 40,wgt 

loao 2,wst+l 

load 6,wgt+4 

switch spl+%,cl-l 

switch hpl,plt-h2 

make ply+l>cs 
c7^ clad cl-1 

load -3>ppl 

subrut upm 

load trn c2-«2,lkw+lkf 

load tra nul+3*vcd-f3 
nul, godo abc,rvg,cla 

load trn Ikc^lkw-flkf 

load cla,vcd+3 
c5j clad cl-1 

llr (3 

doad sir g+ll4 

switch cl-l,spl+4 

godo rvg+sl-l,rvg,tra Ike 

switch mpl,plt+2 

tra srl+eot 



c3. 

c2-c3+^0 
c2"2| clc 

sto pft+cff 

make ply+l,c3 

loec acci cs^ulcfl 

loac sir cs,uke 

load acd c3,uk2 
uk, branch os,ukl 

a la 
uk2j add c3 

tm uk3 

Ipd 

trif Ojuke 

modify uk2,l 

cla 

tra uk2 
uke, sir cs 

bkkeep 
uk3, load add c3*uk2 

modify uk+1,1 

tra uk 
iikl^ ala 

add uke 

sto .-fl 



branch cs,nul+3 

godo c3-3#c5#lla? mpl 

subrut clO 

load add cs,c6f2 

godo srl+ept,srl>llr srl+ept-1 

load sir gen+awa^gen 

tra c8 
c6, sir .+10 

clad cs 

F 1 -' 

^dc c6+2 

acds i,c6+2 

lac 


c8, switch spl+'l-^cl-l 

trs c7 
clO, sir ell 

load tra c6,gen 

godo vcd,bck,cla 
ell, 

constants 

start add+beg 



